home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Mathematics / TeX / TeXit / Utilities / wrap < prev   
Encoding:
Text File  |  1991-08-17  |  1.2 KB  |  46 lines
  1. #!/bin/csh -f
  2. # wrap -- word WRAP  a. el-khadra & p. griffin  7/25/91
  3. #
  4. # usage:  wrap  [ -w nn ] oldfile , nn=width (default=80)
  5. # 
  6. # Notes -- 1.    for wrapped lines , spaces are contracted to one, or two if
  7. #         following ~[.!?]
  8. #       2.    old file replace by wrapped file 
  9. #          
  10. set width = 80 
  11. if ($#argv > 0) then
  12.     if ( "$argv[1]" == '-w') then
  13.         shift
  14.         set a = $argv[1]
  15.         if ($a !~ [0-9]* || $a == 0 || $a >999) then
  16.             echo ww\: Bad width argument $a
  17.             exit 1
  18.         else
  19.             set width = $a 
  20.             shift
  21.         endif
  22.     endif 
  23. if ($#argv > 1) then
  24.     echo usage': wrap[ -w nn] oldfile'   , where nn=width '(default=80)'
  25.     exit 1
  26. endif    
  27. if (! -opr $argv[1] ) then 
  28.     echo  ww\: No file $argv[1]
  29.     exit
  30. endif            
  31. set tf = /tmp/ww:t.$$        
  32. awk "{lt= $width"' \
  33.     if ( length($0) > lt) { \
  34.     line = "" ; ll= 0 \
  35.     for (i=1; i<= NF; i++) { \
  36.         if ( $i ~ /[.\!?]$/ ) { {newpart= $i "  "} ;lp= length($i)+2} \
  37.         else {{newpart=$i " "} ; lp= length($i) +1 } \
  38.         if ( ll + length($i) > lt) { \
  39.             if ( ll =0 ) {print $i} \
  40.             else  {    {print line } ; {line= newpart} ; ll=lp }} \
  41.         else {{newline = line newpart} ; ll += lp ; {line= newline}}} \
  42.     if (ll > 0) {print line} } \
  43. else {print} }' $argv[1] > $tf
  44. mv $tf $argv[1]
  45.  
  46.